TablesGetFloatByString Subroutine

public subroutine TablesGetFloatByString(valueIn, tables, id, keyIn, keyOut, valueOut)

returns a float from column defined by keyOut corresponding to valueIn (string) contained in column defined by keyIn. Table is identified by its id. Arguments: valueIn input value tables collection of tables to search in id id of the table to search in keyIn defines header of the column of the input value keyOut defines header of the column of the output value

The method to match input value is 'exact' by definition, no need to include optional arguments

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: valueIn
type(TableCollection), intent(in) :: tables
character(len=*), intent(in) :: id
character(len=*), intent(in) :: keyIn
character(len=*), intent(in) :: keyOut
real(kind=float), intent(out) :: valueOut

Source Code

SUBROUTINE TablesGetFloatByString &
!
( valueIn, tables, id, keyIn, keyOut, valueOut )

IMPLICIT NONE

! Function arguments
! Scalar arguments with intent(in):
CHARACTER (LEN = *),  INTENT (IN) :: valueIn
CHARACTER (LEN = *),  INTENT (IN) :: id
CHARACTER (LEN = *),  INTENT (IN) :: keyIn
CHARACTER (LEN = *),  INTENT (IN) :: keyOut


! Type defined arguments with intent (in):
TYPE (TableCollection), INTENT (IN) :: tables

! Scalar arguments with intent(in):
REAL (KIND = float), INTENT (OUT) :: valueOut

!------------end of declaration------------------------------------------------


  CALL TableGetFloatByString ( valueIn, tables % elem ( TableSyncById (tables, id) ), &
                       keyIn, keyOut, valueOut )


END SUBROUTINE TablesGetFloatByString